Know Your Hockey - The Greatest Player Resource/Know Your Hockey: The Greatest Player Resource.iso/hockey/director/ssqcst.cst/00031_Script_Load Media Scripts

Text File | 1998-09-28 | 5KB | 168 lines

global gMediaList, gTheBench,gButtonState,gXCast,gPrompts

--- this script uses the sprite channel location of the clickon button (6 to 11)
-- if the player positions are moved then change the script to reflect this

on player
  cursor 4
  -- clear the player card and control sprites
  repeat with x = 5 to 10
    set the type of sprite x = 0
  end repeat
  set the type of sprite 40 = 0
  set the type of sprite 43  = 0
  resetpro
  set thisOne = the clickon-10  -- if the players are moved relative to sprite 1 then this # must change

  resetBanner -- clear the banner status
  set activeplayer =  "LoadCurrentMedia" & thisOne
  do activeplayer
  loadFirstvideo -- loads the first card video
  TitleSound -- plays the Title sound file
  cursor -1
  repeat while soundbusy(1)
  end repeat
  controlon
  set the movierate of sprite 48 = 1
  puppetsound 0
  makeLocalList -- used by the rollover script for the icons to display the next card
end


on LoadCurrentMedia1
  set gTheBench = []
  set gTheBench = getaProp(gMediaList,#player1)
  loadEM
  LoadIcons

end


on LoadCurrentMedia2
  set gTheBench = []
  set gTheBench = getaProp(gMediaList,#player2)
  loadEM
  LoadIcons
end


on LoadCurrentMedia3
  set gTheBench = []
  set gTheBench = getaProp(gMediaList,#player3)
  loadEM
  LoadIcons
end


on LoadCurrentMedia4
  set gTheBench = []
  set gTheBench = getaProp(gMediaList,#player4)
  loadEM
  LoadIcons
end

on LoadCurrentMedia5
  set gTheBench = []
  set gTheBench = getaProp(gMediaList,#player5)
  loadEM
  LoadIcons
end

on LoadCurrentMedia6
  set gTheBench = []
  set gTheBench = getaProp(gMediaList,#player6)
  loadEM
  LoadIcons
end


------------------    Load Cards Scripts -----------------------------------
-- 7  lagrecard
-- 6 text
-- 43  more button
-- 44 to 46 small cards
-- 47 empty
-- 48 AVI file

--- loads the icons and cards

on LoadEM
  --set up the sprites for the cards
  -- sets up the text button for cards
  repeat with x = 41 to 47
    puppetsprite x,1
    set the type of sprite x = 0
  end repeat

  -- clear the member members used by the scrolling text card
  repeat with x = 6 to 9
    set the type of sprite x = 0
  end repeat

  -- loads the first big card named in the property #card in the temp list gTheBench
  set temp = getaprop(gthebench,#card)
  set theCard = getat(temp,1)
  puppetsprite 7,1
  set the type of sprite 7 = the type of sprite 1
  set  the scriptText of member (the number of member  theCard of castlib gXCast) = ¼
The scriptText of member (the number of member  "BigCard" of castlib "SSQCST")
  set the membernum of sprite 7 = the number of member  theCard of castlib gXCast
  set the ink of sprite 7 = 32
  set the visible of sprite 7 to 1
  set the locv of sprite 7  = the locv of sprite 1-53
  set the loch of sprite 7  = the loch of sprite 1+146
  setat(gprompts,7,thecard)
  --   sets up the text button
  -- assumes that the More button was cut out of a large card so registration is the same
  puppetsprite 43,1
  set the type of sprite 43 = 16
  set the membernum of sprite 43 = the number of member "MoreInfo" of castlib "SSQCST"
  set the ink of sprite 43 = 32
  set the locv of sprite 43 = the locv of sprite 1
  set the loch of sprite 43 = the loch of sprite 1
  set the blend of sprite 43 = 0
  set the visible of sprite 43 = 1
  set t = the  number  of member  "MoreInfo" of castlib "SSQCST"
  set  the scriptText of member  t = the scriptText of member (the number of member  "DisplayText" of castlib "SSQCST")
end


-- LoadIcons counts and sets up the detail button and card count
-- uses puppetsprite 40 and 41 formally used by the icons

on loadIcons
  puppetsprite 40,1
  puppetsprite 41,1
  set the membernum of sprite 40 to 0 -- clear the button incase there is only one detail card
  set localList = getaprop(gTheBench,#Card)
  set range = count(localList )
  -- position and setup up a counterfield
  put 1 && "of" &&  range into field "CardCount" of castlib "Internal"
  set the forecolor of  field "CardCount" of castlib "Internal" = 0
  set the membernum of sprite 41 = the number of member  "CardCount"
  set  the loc of sprite 41 = point(522,48)
  set the ink of sprite 41 = 36
  set the visible of sprite 41 = 1

  --position and setup a button
  case range> 1 of
    1:
      set the membernum of sprite 40 = the number of member  "Details" of castlib "SSQCST"
      set the stretch of sprite 40 = false
      set  the loc of sprite 40 =  the loc of sprite 1
      set the ink of sprite 40 = 36
      set the blend of sprite 40 = 0
      set the visible of sprite 40 = 1
      set t = the number of member  "Details" of castlib "SSQCST"
      set S = the number of member "DetailScript" of castlib "SSQCST"
      set the scriptText of member t =  the scriptText of member S
  end case
  updateStage
end